home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 52 / 052.d81 / qlink boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  67 lines
  1. 99 poke53265,peek(53265)and239
  2. 100 poke53280, 0:poke53281, 1:print"[147]";
  3. 101 print"[150]+                                      [186]                             ";
  4. 102 print"  [150]                    LOADSTAR Presents    [150]               ";
  5. 103 print"               [155] "
  6. 104 print"                      "
  7. 105 print"[154]QGuideWelcometotheleading"
  8. 106 print"telecommunicationnetworkfor"
  9. 107 print"theCommodore64and128."
  10. 108 print"                     "
  11. 109 print"    Quantum Link     [155] "
  12. 110 print"[154]ZZPAGETh    [163][163][163][163][163][163][163][163][163][163][163][163]     [155] [146][154]to"
  13. 111 print"mee[155]t other people.      "
  14. 112 print"[154]MikeDMMoJohaveyouseenthenewest"
  15. 113 print"                               "
  16. 114 print"[160] A Demo and Terminal program  [155] "
  17. 115 print"[154]MoJo[160][160] for Commodore's official    [155]d"
  18. 116 print"        on-line service.       [155] "
  19. 117 print"                               [155] "
  20. 118 print"[154]Calhoo[155]n I uploaded it last week.  The"
  21. 119 print"[154]gameisfantastic."
  22. 120 print"JimRHelloEveryone!:)"
  23. 121 print"      ...[208]ress [211][208][193][195][197] [212]o [195]ontinue   "
  24. 130 poke53265,peek(53265)or16
  25. 150 geta$:ifa$<>" "then 150
  26. 199 poke53265,peek(53265)and239
  27. 200 poke53280, 0:poke53281, 1:print"[147]";
  28. 201 print"+                                      [186]             Quantum Link     ";
  29. 202 print"                                                  [152]                     ";
  30. 203 print"                               --- NOTICE[160]---                           ";
  31. 204 print"                              Once the Quantum Link demo/terminal     pr";
  32. 205 print"ogram is loaded, you will have to     reboot LOADSTAR to return to the  ";
  33. 206 print"      menu system.                                                      ";
  34. 207 print"                Continue with loading Quantum Link                      ";
  35. 208 print"                        Quit and return to LOADSTAR                     ";
  36. 209 print"                             (Please make your selection with the     CR";
  37. 210 print"SR keys and press F1 when ready.)                                       ";
  38. 211 print"   [154]                                   "
  39. 215 poke53265,peek(53265)or16
  40. 220 po=1:po$="":ad$=""
  41. 225 printpo$ad$"[152][186]"
  42. 230 geta$:ifa$=""then230
  43. 231 ifa$=""andpo=1ora$="[145]"andpo=1thenpo=2:printpo$ad$"[152] [146]":ad$="":goto 225
  44. 235 ifa$=""andpo=2ora$="[145]"andpo=2thenpo=1:printpo$ad$"[152] [146]":ad$="":goto225
  45. 245 ifa$="[133]"then 250
  46. 248 goto 230
  47. 250 print"";
  48. 260 forx=1to15:print"[160]                                       [145][145]";:next
  49. 265 on po goto270,300
  50. 270 print"[152]";:ford=1to100:next
  51. 280 print"                                        [146]";
  52. 281 print"                                        [146]";
  53. 282 print"          [208]lease insert [211][201][196][197] 4          [146]";
  54. 283 print"                                        [146]";
  55. 284 print"            of [204][207][193][196][211][212][193][210] and             [146]";
  56. 285 print"                                        [146]";
  57. 286 print"       press ([211][208][193][195][197]) to continue        [146]";
  58. 287 print"                                        [146]";
  59. 290 geta$:ifa$<>" "then290
  60. 291 open15,8,15,"r0:quantum=quantum":input#15,er,er$:close15:
  61. 292 print"                                        [146]";
  62. 295 ifer<>63 then print"[147]":end
  63. 297 load"boot64",8,1
  64. 300 print"[147]":open15,8,15,"r0:hello connect=hello connect":input#15,er,er$:close15
  65. 301 ifer<>63 then print"[147]":end
  66. 305 load"hello connect",8,1
  67.